home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Editor / TTX20.DMS / in.adf / Install TurboText 2.0 < prev    next >
Encoding:
Text File  |  1994-10-29  |  37.7 KB  |  1,279 lines
  1. ; $VER: InstallTurboText 2.0 (12.10.94)
  2. ; Script to install TurboText 2.0
  3.  
  4. (complete 0)
  5.  
  6. (if (= @user-level 0)
  7. (
  8.     (user 1)
  9. ))
  10.  
  11. ;=============================================================================
  12. ; English strings
  13.  
  14. (if (= @language "english")
  15. (
  16. (set #bad-kick
  17. (cat "\nYou must be running Kickstart 2.04 to install TurboText 2.0"
  18. ))
  19.  
  20. (set #ask-function
  21. (cat "\nThis program lets you install TurboText 2.0 on your system. It "
  22.      "can upgrade a previous version of TurboText, or install it for the "
  23.      "first time.\n\n"
  24.      "TurboText can be installed on your hard disk, or to a floppy disk. "
  25.      "Hard disk installation requires approximately 1.5 Megabytes of "
  26.      "disk space."
  27. ))
  28.  
  29. (set #ask-function-help
  30. (cat "\nYou can now choose to install TurboText on a hard disk, or create "
  31.      "a floppy disk from which you can run TurboText by double-clicking its "
  32.      "icon.\n\n"
  33.      @askbool-help
  34. ))
  35.  
  36. (set #ask-function-1
  37. (cat "Do Hard Disk Install"
  38. ))
  39.  
  40. (set #ask-function-2
  41. (cat "Do Floppy Install"
  42. ))
  43.  
  44. (set #where
  45. (cat "Where should the TurboText drawer be created?"
  46. ))
  47.  
  48. (set #where-help
  49. (cat "\nYou must now select a drawer. A TurboText drawer will then "
  50.      "be created inside of the drawer you picked, and all the TurboText "
  51.      "files will be copied there.\n\n"
  52.      "For example, picking a drawer called \"DH1:\", will result in the "
  53.      "\"DH1:TurboText\" drawer being created, and all TurboText files will "
  54.      "be copied inside of this new drawer.\n\n"
  55.      @askdir-help
  56. ))
  57.  
  58. (set #confirm-target
  59. (cat "\nA previous version of TurboText has been found in the \"%s\" "
  60.      "drawer. Do you wish to replace this version with TurboText 2.0?"
  61. ))
  62.  
  63. (set #confirm-target-help
  64. (cat "\nThe installer has determined that a previous version of TurboText "
  65.      "is already present in your system. You can choose to install the "
  66.      "new version of TurboText and replace the old one, or you can install "
  67.      "TurboText 2.0 in a different drawer and leave the old version intact.\n\n"
  68.      "Installing the upgrade in the same drawer will overwrite any customized "
  69.      "versions of files provided with previous versions of TurboText."
  70. ))
  71.  
  72. (set #delete-old
  73. (cat "\nCan \"%s\" be deleted?\n\n(NOTE: All of the standard TurboText "
  74.      "ARexx scripts are now located in TurboText:Rexx instead of Rexx:. "
  75.      "In addition, all of the standard TurboText definition files "
  76.      "were renamed in this version.)"
  77. ))
  78.  
  79. (set #delete-old-help
  80. (cat "\nThe \"%s\" file is no longer needed by this version of TurboText "
  81.      "and can therefore be deleted."
  82. ))
  83.  
  84. (set #rename-old-startup
  85. (cat "\nCan the existing TTX_Startup.dfn file be renamed to "
  86.      "TTX_Startup.dfn.old? In order to benefit from many of the "
  87.      "new features in TurboText, it is better to run the new "
  88.      "version without this old file, and reconstruct a replacement "
  89.      "once you are used to the new features."
  90. ))
  91.  
  92. (set #rename-old-startup-help
  93. (cat "\nThe TTX_Startup.dfn file contains definitions that control many "
  94.      "TurboText features. It overrides the built-in defaults of the "
  95.      "editor. If you have redesigned your menus in your startup file, "
  96.      "then you might not see any of the new features available in the "
  97.      "new TurboText built-in menus.\n"
  98.      "Renaming the startup file will prevent TurboText from reading it "
  99.      "upon startup, which will make it use the new default menus. Once "
  100.      "you are familiar with the new features, you can then reconstruct a "
  101.      "new TTX_Startup.dfn file that takes the new features into account."
  102. ))
  103.  
  104. (set #rename-old-startup-1
  105. (cat "Rename"
  106. ))
  107.  
  108. (set #rename-old-startup-2
  109. (cat "Don't Rename"
  110. ))
  111.  
  112. (set #ask-asl
  113. (cat "\nCan an updated version of asl.library (V38.36 from "
  114.      "Workbench 2.1) be installed? TurboText needs this in order "
  115.      "to bring up its file, font, and screen mode requesters."
  116. ))
  117.  
  118. (set #ask-asl-help
  119. (cat "\nasl.library is a file provided with the Amiga Workbench. TurboText "
  120.      "needs at least version 38.36 of this library in order to work "
  121.      "correctly. Your system currently only has an older version 37 "
  122.      "library. Installing this new version of asl.library will let "
  123.      "TurboText function fully, and will cause other applications and tools "
  124.      "that use asl.library to have improved performance."
  125. ))
  126.  
  127. (set #startup
  128. (cat "\nThe following lines will be added to your S:User-Startup file:\n\n"
  129.      "Assign TurboText: \"%s\"\n"
  130.      "Path TurboText: ADD"
  131. ))
  132.  
  133. (set #startup-help
  134. (cat "\nTurboText requires an AmigaDOS assignment statement in order to "
  135.      "work correctly. If you wish, the \"TurboText:\" assignment statement "
  136.      "can be added to your system's User-Startup file, so that it will "
  137.      "get automatically created every time you power on your system."
  138. ))
  139.  
  140. (set #ask-wbstartup
  141. (cat "\nDo you want TurboText to be automatically started every time you "
  142.      "power on or boot your system?\n\n"
  143.      "If you choose to have TurboText started automatically, then it will be "
  144.      "loaded in the background when your system is initialized. You will then "
  145.      "be able to open a TurboText document window by simply pressing "
  146.      "[Ctrl]-[Alt]-W at any time."
  147. ))
  148.  
  149. (set #ask-wbstartup-help
  150. (cat "\nSelect \"Yes\" to have TurboText started automatically every time your "
  151.      "system is initialized."
  152. ))
  153.  
  154. (set #ask-wbstartup-1
  155. (cat "Yes"
  156. ))
  157.  
  158. (set #ask-wbstartup-2
  159. (cat "No"
  160. ))
  161.  
  162. (set #update-wbstartup
  163. (cat "\nDo you wish to update the copy "
  164.      "of TTX that's in your WBStartup drawer?"
  165. ))
  166.  
  167. (set #floppy-stuff
  168. (cat "\nA floppy disk will now be prepared. It will contain all the files "
  169.      "needed to run TurboText. Floppy installations do not get the on-line "
  170.      "documentation.\n\n"
  171.      "Please obtain a scratch floppy disk and label it \"TurboText\". Once "
  172.      "labelled, insert the disk in the internal floppy drive (DF0:)."
  173. ))
  174.  
  175. (set #formatting
  176. (cat "\n\nFormatting and preparing floppy..."
  177. ))
  178.  
  179. (set #working
  180. (cat "\n\nDecompressing and installing TurboText files to '%s'..."
  181. ))
  182.  
  183. ))
  184.  
  185.  
  186. ;=============================================================================
  187. ; Danish strings
  188.  
  189. (if (= @language "dansk")
  190. (
  191. (set #bad-kick
  192. (cat "You must be running Kickstart 2.04 to install TurboText 2.0"
  193. ))
  194.  
  195. ))
  196.  
  197.  
  198. ;=============================================================================
  199. ; Dutch strings
  200.  
  201. (if (= @language "nederlands")
  202. (
  203. (set #bad-kick
  204. (cat "You must be running Kickstart 2.04 to install TurboText 2.0"
  205. ))
  206.  
  207. ))
  208.  
  209.  
  210. ;=============================================================================
  211. ; French strings
  212.  
  213. (if (= @language "français")
  214. (
  215. (set #bad-kick
  216. (cat "\nVous devez avoir Kickstart 2.04 pour installer TurboText 2.0"
  217. ))
  218.  
  219. (set #ask-function
  220. (cat "\nCe programme vous permet d'installer TurboText 2.0. Vous pouvez "
  221.      "installer le logiciel pour la première fois, ou mettre à jour une "
  222.      "version précédente.\n"
  223.      "TurboText peut être installé sur votre disque dûr, ou sur une disquette. "
  224.      "Le logiciel requiert 1.5 megaoctets lorsqu'il est installé sur un "
  225.      "disque dûr."
  226. ))
  227.  
  228. (set #ask-function-help
  229. (cat "\nVous pouvez maintenant choisir d'installer TurboText sur un disque "
  230.      "dûr ou sur une disquette.\n\n"
  231.      @askbool-help
  232. ))
  233.  
  234. (set #ask-function-1
  235. (cat "Disque Dûr"
  236. ))
  237.  
  238. (set #ask-function-2
  239. (cat "Disquette"
  240. ))
  241.  
  242. (set #where
  243. (cat "Choisissez l'endroit oû le tiroir TurboText devrait être créé"
  244. ))
  245.  
  246. (set #where-help
  247. (cat "\nVous devez maintenant sélectionner un tiroir. Un nouveau tiroir "
  248.      "du nom de TurboText sera subséquemment créer à l'intérieur de ce "
  249.      "tiroir.\n\n"
  250.      @askdir-help
  251. ))
  252.  
  253. (set #confirm-target
  254. (cat "\nUne version précédente de TurboText existe dans le tiroir \"%s\". "
  255.      "Voulez-vous installer la nouvelle version de TurboText au même endroit?"
  256. ))
  257.  
  258. (set #confirm-target-help
  259. (cat "\nL'installateur a déterminé qu'une version précédente de TurboText "
  260.      "est déjà présente dans votre systême. Vous pouvez choisir d'installer "
  261.      "la nouvelle version de TurboText au même endroit, et ainsi remplacer "
  262.      "la version précédente, ou vous pouvez choisir d'installer TurboText 2.0 "
  263.      "ailleurs, et laisser la version précédente intacte.\n\n"
  264. ))
  265.  
  266. (set #delete-old
  267. (cat "\nEst-ce que \"%s\" peut être effacé?\n\nNOTE: Tous les macros ARexx "
  268.      "proviennent maintenant de TurboText:Rexx au lieu de Rexx:. De plus, "
  269.      "tous les fichiers de définition TurboText ont été renommé dans TurboText "
  270.      "2.0."
  271. ))
  272.  
  273. (set #delete-old-help
  274. (cat "\nLe fichier \"%s\" n'est plus nécessaire avec TurboText 2.0 "
  275.      "et peut donc être effacer."
  276. ))
  277.  
  278. (set #rename-old-startup
  279. (cat "\nEst-ce que le fichier TTX_Startup.dfn peut être renommé à "
  280.      "TTX_Startup.old? Pour bénéficier de plusieurs des nouvelles abilités "
  281.      "de TurboText 2.0, ceci est fortement recommendé."
  282. ))
  283.  
  284. (set #rename-old-startup-help
  285. (cat ""
  286. ))
  287.  
  288.  
  289. (set #rename-old-startup-1
  290. (cat "Renommez"
  291. ))
  292.  
  293. (set #rename-old-startup-2
  294. (cat "Pas renommez"
  295. ))
  296.  
  297. (set #ask-asl
  298. (cat "\nEst-ce qu'une version plus récente d'asl.library (version 38.36 "
  299.      "provenant du Workbench 2.1) peut être installé dans votre systême?"
  300. ))
  301.  
  302. (set #ask-asl-help
  303. (cat "\nasl.library est une composante du Workbench. TurboText a besoin d'au "
  304.      "moins la version 38 de ce fichier. Votre systême ne contient présentement "
  305.      "qu'une version 37."
  306. ))
  307.  
  308. (set #startup
  309. (cat "\nL'assignation suivante va maintenant être ajouté à votre fichier "
  310.      "S:User-Startup:\n\n"
  311.      "Assign TurboText: \"%s\"\n"
  312.      "Path TurboText: ADD"
  313. ))
  314.  
  315. (set #startup-help
  316. (cat "\nTurboText à besoin d'une assignation AmigaDOS pour être en mesure de "
  317.      "fonctionner correctement. Le fais d'ajouter cette assignation à votre "
  318.      "fichier S:User-Startup rendra l'assignation permanente et automatique."
  319. ))
  320.  
  321. (set #ask-wbstartup
  322. (cat "\nVoulez-vous que TurboText soit démarré automatiquement à chaque "
  323.      "fois que votre Amiga est activé?\n\n"
  324. ))
  325.  
  326. (set #ask-wbstartup-help
  327. (cat "\nChoisissez \"Oui\" pour démarrer TurboText à chaque fois que votre "
  328.      "Amiga est activé."
  329. ))
  330.  
  331. (set #ask-wbstartup-1
  332. (cat "Oui"
  333. ))
  334.  
  335. (set #ask-wbstartup-2
  336. (cat "Non"
  337. ))
  338.  
  339. (set #update-wbstartup
  340. (cat "\nVoulez-vous mettre à jour la version de TurboText qui est déjà "
  341.      "présente dans votre tiroir WBStartup?"
  342. ))
  343.  
  344. (set #floppy-stuff
  345. (cat "\nUne disquette sera maintenant préparé. Elle contiendra tous les "
  346.      "fichier nécessaire pour le bon fonctionement de TurboText. L'installation "
  347.      "sur disquette n'inclus pas le manuel.\n\n"
  348.      "Veuillez obtenir une disquette et nommez la \"TurboText\". Insérer "
  349.      "cette disquette dans l'unité de lecture interne (DF0:)."
  350. ))
  351.  
  352. (set #formatting
  353. (cat "\n\nFormattage et préparation de la disquette..."
  354. ))
  355.  
  356. (set #working
  357. (cat "\n\nDécompression et installation des fichiers TurboText dans le tiroir "
  358.      "'%s'..."
  359. ))
  360.  
  361. ))
  362.  
  363.  
  364. ;=============================================================================
  365. ; German strings
  366.  
  367. (if (= @language "deutsch")
  368. (
  369. (set #bad-kick
  370. (cat "Zur Installation von TurboText 2.0 wird Kickstart 2.04 benötigt"
  371. ))
  372.  
  373. (set #ask-function
  374. (cat "\nMit diesem Programm kann TurboText 2.0 auf Ihrem System installiert "
  375.      "werden. Sie können eine ältere TurboText-Version aktualisieren oder "
  376.      "das TurboText-Programm neu installieren.\n\n"
  377.      "TurboText kann auf Festplatte oder auf Diskette installiert werden. "
  378.      "Die Installation auf Festplatte benötigt etwa 1,5M Bytes freien "
  379.      "Platz."
  380. ))
  381.  
  382. (set #ask-function-help
  383. (cat "\nSie können jetzt wählen, ob TurboText auf Festplatte installiert "
  384.      "werden soll, oder auf einer Diskette, von der Sie das Programm per "
  385.      "Doppelklick auf das Piktogramm starten können.\n\n"
  386.      @askbool-help
  387. ))
  388.  
  389. (set #ask-function-1
  390. (cat "Auf Festplatte installieren"
  391. ))
  392.  
  393. (set #ask-function-2
  394. (cat "Auf Diskette installieren"
  395. ))
  396.  
  397. (set #where
  398. (cat "Wo soll die TurboText-Schublade angelegt werden?"
  399. ))
  400.  
  401. (set #where-help
  402. (cat "\nSie müssen jetzt eine Schublade auswählen. Eine TurboText-Schublade "
  403.      "wird in der von Ihnen ausgewählten Schublade angelegt und alle zu "
  404.      "TurboText gehörenden Dateien hineinkopiert.\n\n"
  405.      "Würden Sie z.B. die Schublade \"DH1:\" wählen, so würde die Schublade "
  406.      "\"DH1:TurboText\" erzeugt und alle zu TurboText gehörenden Dateien "
  407.      "in diese neue Schublade kopiert.\n\n"
  408.      @askdir-help
  409. ))
  410.  
  411. (set #confirm-target
  412. (cat "\nEine ältere TurboText-Version wurde in der Schublade \"%s\" "
  413.      "gefunden. Soll diese Version durch TurboText 2.0 ersetzt werden?"
  414. ))
  415.  
  416. (set #confirm-target-help
  417. (cat "\nDas Installationsprogramm hat ermittelt, daß eine ältere "
  418.      "Version von TurboText bereits auf Ihrem System installiert ist. "
  419.      "Sie können wählen, ob Sie die neue TurboText-Version installieren "
  420.      "und die alte Version ersetzen möchten, oder ob TurboText 2.0 in "
  421.      "einer anderen Schublade installiert werden und die alte Version "
  422.      "unberührt bleiben soll.\n\n"
  423.      "Wird die neue Version in der selben Schublade wie die alte "
  424.      "Version installiert, gehen jegliche Änderungen an Dateien, die "
  425.      "mit der alten TurboText-Version geliefert wurden, verloren."
  426. ))
  427.  
  428. (set #delete-old
  429. (cat "\nKann \"%s\" gelöscht werden?\n\n(HINWEIS: Alle zu TurboText "
  430.      "mitgelieferten ARexx-Skripte finden sich jetzt unter "
  431.      "TurboText:Rexx anstatt unter Rexx:. Zusätzlich wurden alle "
  432.      "mitgelieferten Definitionsdateien in dieser Version neu benannt."
  433. ))
  434.  
  435. (set #delete-old-help
  436. (cat "\nDie Datei \"%s\" wird von dieser TurboText-Version nicht mehr "
  437.      "benötigt und kann deshalb gelöscht werden."
  438. ))
  439.  
  440. (set #rename-old-startup
  441. (cat "\nKann die vorhandene TTX_Startup.dfn-Datei umbenannt werden in "
  442.      "TTX_Startup.dfn.old? Um von den neuen Leistungsmerkmalen zu "
  443.      "profitieren, die TurboText 2.0 bietet, ist es besser, die neue "
  444.      "Version ohne die alte Definitionsdatei zu erzeugen und eine "
  445.      "Ersatzdatei zu erstellen, sobald Sie sich mit den neuen "
  446.      "Leistungsmerkmalen vertraut gemacht haben."
  447. ))
  448.  
  449. (set #rename-old-startup-help
  450. (cat "\nDie TTX_Startup.dfn-Datei enthält Definitionen, die viele "
  451.      "Funktionen von TurboText steuern. Sie ersetzen die 'eingebauten' "
  452.      "Standardwerte des Editors. Haben Sie die Menüs in Ihrer "
  453.      "TTX_Startup.dfn-Datei geändert, sind eventuell einige der neuen "
  454.      "Leistungsmerkmale von TurboText 2.0 in den Standardmenüs nicht "
  455.      "sichtbar.\n"
  456.      "Wird die TTX_Startup.dfn-Datei umbenannt, so hindert TurboText "
  457.      "dies daran, sie beim Starten zu lesen, wodurch die neuen "
  458.      "Standardmenüs benutzt werden. Sobald Sie mit den neuen "
  459.      "Leistungsmerkmalen vertraut sind, können Sie eine neue "
  460.      "TTX_Startup.dfn-Datei erstellen, die die neuen Funktionen "
  461.      "berücksichtigt."
  462. ))
  463.  
  464. (set #rename-old-startup-1
  465. (cat "Umbenennen"
  466. ))
  467.  
  468. (set #rename-old-startup-2
  469. (cat "Nicht umbenennen"
  470. ))
  471.  
  472. (set #ask-asl
  473. (cat "\nKann eine aktualisierte Version der asl.library (v38.36, die "
  474.      "von der Workbench 2.1 stammt) installiert werden? TurboText "
  475.      "benötigt diese Systembibliothek, um die Auswahlfenster für "
  476.      "Dateien, Zeichensätze und Bildschirmmodi anzuzeigen."
  477. ))
  478.  
  479. (set #ask-asl-help
  480. (cat "\nasl.library ist eine Datei, die im Lieferumfang der Amiga "
  481.      "Workbench enthalten ist. TurboText ist auf Version 38.36 oder "
  482.      "eine Nachfolgeversion angewiesen, um korrekt zu funktionieren. "
  483.      "Auf Ihrem System ist gegenwärtig nur eine ältere Version 37 "
  484.      "installiert. Installieren der neuen asl.library-Version "
  485.      "garantiert die volle Funktionsfähigkeit von TurboText und "
  486.      "steigert zudem die Leistungsfähigkeit anderer Programme, die die "
  487.      "asl.library benutzen."
  488. ))
  489.  
  490. (set #startup
  491. (cat "\nDie folgenden Zeilen werden an die Datei S:User-Startup "
  492.      "angehängt:\n\n"
  493.      "Assign TurboText: \"%s\"\n"
  494.      "Path TurboText: ADD"
  495. ))
  496.  
  497. (set #startup-help
  498. (cat "\nTurboText benötigt eine AmigaDOS-Zuweisung, um korrekt zu funktionieren. "
  499.      "Sofern Sie es wünschen, kann eine entsprechende Anweisung zur Datei "
  500.      "S:User-Startup hinzugefügt werden, die dafür sorgt, daß die Zuweisung "
  501.      "nach dem Einschalten des Rechners und bei jedem Neustart Ihres Systems angelegt "
  502.      "wird."
  503. ))
  504.  
  505. (set #ask-wbstartup
  506. (cat "\nSoll TurboText nach dem Einschalten des Rechners und bei jedem Neustart "
  507.      "Ihres Systems automatisch gestartet werden?\n\n"
  508.      "Falls Sie TurboText automatisch starten lassen wollen, wird der Editor beim "
  509.      "Systemstart im Hintergrund aufgerufen. Durch Drücken der Tastenkombination "
  510.      "[Ctrl]-[Alt]-W können Sie dann jederzeit ein TurboText-Fenster öffnen."
  511. ))
  512.  
  513. (set #ask-wbstartup-help
  514. (cat "\nWählen Sie \"Ja\" um TurboText bei jedem Systemstart aufrufen zu lassen."
  515. ))
  516.  
  517. (set #ask-wbstartup-1
  518. (cat "Ja"
  519. ))
  520.  
  521. (set #ask-wbstartup-2
  522. (cat "Nein"
  523. ))
  524.  
  525. (set #update-wbstartup
  526. (cat "\nSoll die Kopie des TTX-Programmes in Ihrer WBStartup-Schublade "
  527.      "aktualisiert werden?"
  528. ))
  529.  
  530. (set #floppy-stuff
  531. (cat "\nEine Diskette wird jetzt für TurboText vorbereitet. Sie wird alle "
  532.      "Dateien aufnehmen, die zum Betrieb von TurboText benötigt werden. "
  533.      "Die Online-Dokumentation wird bei der Disketten-Installation nicht "
  534.      "mitkopiert.\n\n"
  535.      "Bitte suchen Sie eine Leerdiskette und beschriften sie mit dem "
  536.      "Namen \"TurboText\". Sobald die Diskette beschriftet ist, legen Sie "
  537.      "sie in das interne Diskettenlaufwerk des Amiga (DF0:)."
  538. ))
  539.  
  540. (set #formatting
  541. (cat "\n\nDiskette wird formatiert und vorbereitet..."
  542. ))
  543.  
  544. (set #working
  545. (cat "\n\nTurboText wird entpackt und installiert nach '%s'..."
  546. ))
  547.  
  548. ))
  549.  
  550.  
  551. ;=============================================================================
  552. ; Italian strings
  553.  
  554. (if (= @language "italiano")
  555. (
  556. (set #bad-kick
  557. (cat "\nDovete avere il Kickstart 2.04 per installare TurboText 2.0"
  558. ))
  559.  
  560. (set #ask-function
  561. (cat "\nQuesto programma vi permette di installare TurboText 2.0 sul vostro "
  562.      "sistema. Può aggiornare una versione precedente di TurboText, o "
  563.      "installarlo per la prima volta.\n\n"
  564.      "TurboText può essere installato sul vostro disco rigido, o su un "
  565.      "dischetto. L'installazione su disco rigido richiede "
  566.      "approssivativamente 1.5 Megabytes di spazio."
  567. ))
  568.  
  569. (set #ask-function-help
  570. (cat "\nPotete scegliere se installare TurboText su un disco rigido, o se "
  571.      "creare un dischetto da cui lanciare TurboText attivandone l'icona.\n\n"
  572.      @askbool-help
  573. ))
  574.  
  575. (set #ask-function-1
  576. (cat "Installa su disco rigido"
  577. ))
  578.  
  579. (set #ask-function-2
  580. (cat "Installa su dischetto"
  581. ))
  582.  
  583. (set #where
  584. (cat "Dove devo creare il cassetto di TurboText?"
  585. ))
  586.  
  587. (set #where-help
  588. (cat "\nDovete selezionare un cassetto. Un cassetto di nome TurboText "
  589.      "sarà creato dentro il cassetto da voi scelto, e tutti i file di "
  590.      "TurboText saranno copiati là.\n\n"
  591.      "Per esempio, se scegliete un cassetto di nome \"DH1:\" verrà creato un "
  592.      "cassetto di nome \"DH1:TurboText\", e tutti i file di TurboText "
  593.      "saranno copiati in questo nuovo cassetto.\n\n"
  594.      @askdir-help
  595. ))
  596.  
  597. (set #confirm-target
  598. (cat "\nUna versione precedente di TurboText è stata trovata nel cassetto \"%s\". "
  599.      "Volete sostituire questa versione con TurboText 2.0?"
  600. ))
  601.  
  602. (set #confirm-target-help
  603. (cat "\nL'installer ha determinato che una versione precedente di TurboText "
  604.      "è già presente nel vostro sistema. Potete scegliere se installare la nuova "
  605.      "versione di TurboText e sostituire la vecchia, o se installare TurboText 2.0 "
  606.      "in un cassetto diverso e lasciare la vecchia versione intatta.\n\n"
  607.      "Installare l'aggiornamento nello stesso cassetto cancellerà le versioni "
  608.      "personali di file forniti con versioni precedenti di TurboText."
  609. ))
  610.  
  611. (set #delete-old
  612. (cat "\nSi può cancellare \"%s\"?\n\n(NOTA: Tutti i macro ARexx standard "
  613.      "di TurboText sono ora posizionati in TurboText:Rexx invece che in Rexx:. "
  614.      "Inoltre, tutti i file di definizioni standard sono stati rinominati in "
  615.      "questa versione.)"
  616. ))
  617.  
  618. (set #delete-old-help
  619. (cat "\nIl file \"%s\" non è più necessario in questa versione di TurboText "
  620.      "e quindi può essere cancellato."
  621. ))
  622.  
  623. (set #rename-old-startup
  624. (cat "\nSi può rinominare il file TTX_Startup.dfn esistente in "
  625.      "TTX_Startup.dfn.old? Per utilizzare molte delle nuove funzionalità "
  626.      "di TurboText è meglio far partire la nuova versione senza questo "
  627.      "vecchio file, e ricostruire un rimpiazzo una volta che ci si sia "
  628.      "abituati alle nuove caratteristiche."
  629. ))
  630.  
  631. (set #rename-old-startup-help
  632. (cat "\nIl file TTX_Startup.dfn contiene definizioni che controllano "
  633.      "molte funzionalità di TurboText. Esso sovrascrive i valori incorporati "
  634.      "nell'editor. Se avete modificato i menu nel vostro file di startup, "
  635.      "potreste non vedere nessuna delle nuove funzionalità disponibili nei nuovi "
  636.      "menu incorporati in TurboText.\n"
  637.      "Cambiare il nome al file di startup impedirà che TurboText lo legga "
  638.      "quando viene lanciato la prima volta, il che lo forzerà ad utilizzare "
  639.      "i nuovi menu di default. Quando avrete familiarità con le nuove caratteristiche "
  640.      "potrete ricostruire un nuovo file TTX_Startup.dfn che le prenderà in considerazione."
  641. ))
  642.  
  643. (set #rename-old-startup-1
  644. (cat "Rinomina"
  645. ))
  646.  
  647. (set #rename-old-startup-2
  648. (cat "Non rinominare"
  649. ))
  650.  
  651. (set #ask-asl
  652. (cat "\nPosso installare una versione aggiornata della asl.library (V38.36 dal "
  653.      "Workbench 2.1)? TurboText ne ha bisogno "
  654.      "per aprire i suoi requester per i file, i font e il modo di "
  655.      "visualizzazione."
  656. ))
  657.  
  658. (set #ask-asl-help
  659. (cat "\nasl.library è un file fornito con il Workbench di Amiga. TurboText "
  660.      "ha bisogno almeno della versione 38.36 di questa libreria per "
  661.      "funzionare correttamente. Il vostro sistema ha correntemente solo una "
  662.      "vecchia versione 37. Installare questa nuova versione della asl.library "
  663.      "permetterà a TurboText di funzionare correttamente, e migliorerà il "
  664.      "funzionamento di altre applicazioni che utilizzano la asl.library."
  665. ))
  666.  
  667. (set #startup
  668. (cat "\nLe linee seguenti saranno aggiunte al vostro file S:User-Startup:\n\n"
  669.      "Assign TurboText: \"%s\"\n"
  670.      "Path TurboText: ADD"
  671. ))
  672.  
  673. (set #startup-help
  674. (cat "\nTurboText richiede un comando AmigaDOS di assegnamento per "
  675.      "funzionare correttamente. Se volete, il comando per assegnare \"TurboText:\" "
  676.      "può essere aggiunto al vostro file User-Startup, in maniera che l'assegnazione "
  677.      "venga creata automaticamente ogni volta che accendete il vostro sistema."
  678. ))
  679.  
  680. (set #ask-wbstartup
  681. (cat "\nVolete che TurboText venga automaticamente fatto partire ogni volta che "
  682.      "accendete o fate ripartire il vostro sistema?\n\n"
  683.      "Se scegliete di fare partire automaticamente TurboText, esso verrà "
  684.      "caricato in background mentre il vostro sistema viene inizializzato. "
  685.      "Potrete poi aprire una finestra di TurboText semplicemente premendo "
  686.      "[Ctrl]-[Alt]-W in qualunque momento."
  687. ))
  688.  
  689. (set #ask-wbstartup-help
  690. (cat "\nSelezionate \"Sì\" per fare partire automaticamente TurboText ogni volta "
  691.      "che il vostro sistema viene inizializzato."
  692. ))
  693.  
  694. (set #ask-wbstartup-1
  695. (cat "Sì"
  696. ))
  697.  
  698. (set #ask-wbstartup-2
  699. (cat "No"
  700. ))
  701.  
  702. (set #update-wbstartup
  703. (cat "\nVolete aggiornare la copia di TTX che si trova nel vostro cassetto "
  704.      "WBStartup?"
  705. ))
  706.  
  707. (set #floppy-stuff
  708. (cat "\nVerrà preparato un dischetto che conterrà tutti file necessari per fare "
  709.      "funzionare TurboText. L'installazione su dischetto non contiene la documentazione "
  710.      "in linea.\n\n"
  711.      "Procuratevi un dischetto nuovo ed etichettatelo \"TurboText\". Una volta "
  712.      "etichettatolo, inserite il dischetto nel drive interno (DF0:)."
  713. ))
  714.  
  715. (set #formatting
  716. (cat "\n\nSto formattando e preparando il dischetto..."
  717. ))
  718.  
  719. (set #working
  720. (cat "\n\nSto decomprimendo e installando i file di TurboText in '%s'..."
  721. ))
  722.  
  723. ))
  724.  
  725.  
  726. ;=============================================================================
  727. ; Norwegian strings
  728.  
  729. (if (= @language "norsk")
  730. (
  731. (set #bad-kick
  732. (cat "You must be running Kickstart 2.04 to install TurboText 2.0"
  733. ))
  734.  
  735. ))
  736.  
  737.  
  738. ;=============================================================================
  739. ; Portugues strings
  740.  
  741. (if (= @language "português")
  742. (
  743. (set #bad-kick
  744. (cat "You must be running Kickstart 2.04 to install TurboText 2.0"
  745. ))
  746.  
  747. ))
  748.  
  749.  
  750. ;=============================================================================
  751. ; Spanish strings
  752.  
  753. (if (= @language "español")
  754. (
  755. (set #bad-kick
  756. (cat "You must be running Kickstart 2.04 to install TurboText 2.0"
  757. ))
  758.  
  759. ))
  760.  
  761.  
  762. ;=============================================================================
  763. ; Swedish strings
  764.  
  765. (if (= @language "svenska")
  766. (
  767. (set #bad-kick
  768. (cat "You must be running Kickstart 2.04 to install TurboText 2.0"
  769. ))
  770.  
  771. ))
  772.  
  773.  
  774. ;=============================================================================
  775. ; make sure we are running under V37
  776.  
  777. (if (< (/ (getversion) 65536) 37)
  778. (
  779.     (abort #bad-kick)
  780. ))
  781.  
  782.  
  783. ;=============================================================================
  784. ; do a bit of set up...
  785.  
  786. (delopts "oknodelete" "force" "askuser")
  787.  
  788. (complete 2)
  789.  
  790.  
  791. ;=============================================================================
  792. ; what do you want to do?
  793.  
  794. (if (askbool (prompt #ask-function)
  795.          (help #ask-function-help)
  796.          (choices #ask-function-1 #ask-function-2)
  797.          (default 0)
  798.     )
  799. (
  800.  
  801. (complete 5)
  802.  
  803.  
  804. ;=============================================================================
  805. ; get target directory where install is to be performed
  806.  
  807. (if (exists "TurboText:" (noreq))
  808. (
  809.     ; TurboText is already installed in this system. Install upgrade there?
  810.  
  811.     (set old_ttx (expandpath "TurboText:"))
  812.  
  813.     (if (askbool (prompt (#confirm-target old_ttx))
  814.          (help #confirm-target-help)
  815.          (default 1)
  816.     )
  817.     (
  818.     (set target old_ttx)
  819.     )
  820.     (
  821.         (set target (askdir (prompt #where)
  822.                             (help #where-help)
  823.                             (default @default-dest)
  824.                     )
  825.         )
  826.         (set target (tackon target "TurboText"))
  827.     ))
  828. )
  829. (
  830.     ; TurboText has not been installed before, pick a directory and offer it
  831.  
  832.     (set target (askdir (prompt #where)
  833.                         (help #where-help)
  834.                         (default @default-dest)
  835.                 )
  836.     )
  837.     (set target (tackon target "TurboText"))
  838. ))
  839.  
  840. (set @default-dest target)
  841.  
  842. (complete 10)
  843.  
  844.  
  845. ;=============================================================================
  846. ; make our target drawers
  847.  
  848. (makedir target (infos))
  849. (makedir (tackon target "Support") (infos))
  850. (makedir (tackon target "Rexx") (infos))
  851. (makedir (tackon target "Rexx/TTX_VT") (infos))
  852. (makedir (tackon target "Catalogs"))
  853. (makedir (tackon target "Catalogs/deutsch"))
  854. (makedir (tackon target "Catalogs/français"))
  855. (makedir (tackon target "Catalogs/italiano"))
  856. (makedir (tackon target "Localization"))
  857. (makedir (tackon target "Libs"))
  858.  
  859. (complete 12)
  860.  
  861.  
  862. ;=============================================================================
  863. ; delete files that are no longer needed
  864.  
  865. (protect (tackon target "Support/TTX_Help.txt") "+w +d")
  866. (protect (tackon target "Support/TTX_Help_Brief.txt") "+w +d")
  867. (protect "Rexx:TTX_VT/TTX_VT_Info" "+w +d")
  868. (protect "Rexx:TTX_BRIEF/TTX_BRIEF_Info" "+w +d")
  869.  
  870. (set n 0)
  871. (while (set thisfile (select n (tackon target "Support/TTX_Standard.dfn")
  872.                                (tackon target "Support/TTX_C.dfn")
  873.                                (tackon target "Support/TTX_MEMACS.dfn")
  874.                                (tackon target "Support/TTX_Ada.dfn")
  875.                                (tackon target "Support/TTX_Asm.dfn")
  876.                                (tackon target "Support/TTX_CED.dfn")
  877.                                (tackon target "Support/TTX_COBOL.dfn")
  878.                                (tackon target "Support/TTX_TxEd.dfn")
  879.                                (tackon target "Support/TTX_English.dfn")
  880.                                (tackon target "Support/TTX_Deutsch.dfn")
  881.                                (tackon target "Support/TTX_BRIEF.dfn")
  882.                                (tackon target "Support/TTX_M2.dfn")
  883.                                (tackon target "Support/TTX_Ed.dfn")
  884.                                (tackon target "Support/TTX_Northgate.dfn")
  885.                                (tackon target "Support/TTX_PCNumPad.dfn")
  886.                                (tackon target "Support/TTX_QEdit.dfn")
  887.                                (tackon target "Support/TTX_VTNumPad.dfn")
  888.                                (tackon target "Support/TTX_WordStar.dfn")
  889.                                (tackon target "Support/TTX_Français.dfn")
  890.                                (tackon target "Support/TTX_Italiano.dfn")
  891.                                (tackon target "Support/TTX_Help.txt")
  892.                                (tackon target "Support/TTX_Help_Brief.txt")
  893.                                "Rexx:AddChars.ttx"
  894.                                "Rexx:ChangeWindow.ttx"
  895.                                "Rexx:CleanUp.ttx"
  896.                                "Rexx:CmdShell.ttx"
  897.                                "Rexx:CommentBlk.ttx"
  898.                                "Rexx:CountWords.ttx"
  899.                                "Rexx:Documentize.ttx"
  900.                                "Rexx:EdEmulation.ttx"
  901.                                "Rexx:GetKin.ttx"
  902.                                "Rexx:GetRef.ttx"
  903.                                "Rexx:Hanoi.ttx"
  904.                                "Rexx:MarkAutoDocRef.ttx"
  905.                                "Rexx:MarkRef.ttx"
  906.                                "Rexx:MoveByte.ttx"
  907.                                "Rexx:NextParagraph.ttx"
  908.                                "Rexx:NumberLines.ttx"
  909.                                "Rexx:OpenLayout.ttx"
  910.                                "Rexx:PickFont.ttx"
  911.                                "Rexx:PrevParagraph.ttx"
  912.                                "Rexx:PrintBlk.ttx"
  913.                                "Rexx:RemoveBlankLines.ttx"
  914.                                "Rexx:SaveBlk.ttx"
  915.                                "Rexx:SaveChangedDocs.ttx"
  916.                                "Rexx:SaveLayout.ttx"
  917.                                "Rexx:SelectDoc.ttx"
  918.                                "Rexx:SortBlk.ttx"
  919.                                "Rexx:SpeakLines.ttx"
  920.                                "Rexx:StripANSI.ttx"
  921.                                "Rexx:WindowOrg.ttx"
  922.                                "Rexx:TTX_VT/KP_9.ttx"
  923.                                "Rexx:TTX_VT/KP_Minus.ttx"
  924.                                "Rexx:TTX_VT/KP_RightParen.ttx"
  925.                                "Rexx:TTX_VT/Meta_KP_Star.ttx"
  926.                                "Rexx:TTX_VT/TTX_VT_Info"
  927.                                "Rexx:TTX_VT"
  928.                                "Rexx:TTX_BRIEF/CopyBlk.ttx"
  929.                                "Rexx:TTX_BRIEF/CutBlk.ttx"
  930.                                "Rexx:TTX_BRIEF/Delete.ttx"
  931.                                "Rexx:TTX_BRIEF/End.ttx"
  932.                                "Rexx:TTX_BRIEF/GoToBookmark.ttx"
  933.                                "Rexx:TTX_BRIEF/Home.ttx"
  934.                                "Rexx:TTX_BRIEF/IncludeFile.ttx"
  935.                                "Rexx:TTX_BRIEF/NumLock.ttx"
  936.                                "Rexx:TTX_BRIEF/Remember.ttx"
  937.                                "Rexx:TTX_BRIEF/SaveFile.ttx"
  938.                                "Rexx:TTX_BRIEF/ScrollDown.ttx"
  939.                                "Rexx:TTX_BRIEF/ScrollUp.ttx"
  940.                                "Rexx:TTX_BRIEF/ShiftTAB.ttx"
  941.                                "Rexx:TTX_BRIEF/TAB.ttx"
  942.                                "Rexx:TTX_BRIEF/TTX_BRIEF_Info"
  943.                                "Rexx:TTX_BRIEF"
  944.                    (tackon target "TurboText")
  945.                    (tackon target "TurboText_Info")
  946.                    ""
  947.              )
  948.        )
  949. (
  950.     (set n (+ n 1))
  951.  
  952.     (if (exists thisfile)
  953.     (
  954.         (delete thisfile (prompt (#delete-old thisfile))
  955.                          (help (#delete-old-help thisfile))
  956.                          (confirm)
  957.         )
  958.     ))
  959.  
  960.     (set thisfile (cat thisfile ".info"))
  961.  
  962.     (if (exists thisfile)
  963.     (
  964.         (delete thisfile (prompt (#delete-old thisfile))
  965.                          (help (#delete-old-help thisfile))
  966.                          (confirm)
  967.         )
  968.     ))
  969. ))
  970.  
  971. (complete 15)
  972.  
  973.  
  974. ;=============================================================================
  975. ; what to do with this old file?
  976.  
  977. (if (exists (tackon target "Support/TTX_Startup.dfn"))
  978. (
  979.     (if (askbool (prompt #rename-old-startup)
  980.                  (help #rename-old-startup-help)
  981.                  (choices #rename-old-startup-1 #rename-old-startup-2)
  982.                  (default 0)
  983.         )
  984.     (
  985.         (rename (tackon target "Support/TTX_Startup.dfn")
  986.                 (tackon target "Support/TTX_Startup.old")
  987.         )
  988.  
  989.         (rename (tackon target "Support/TTX_Startup.dfn.info")
  990.                 (tackon target "Support/TTX_Startup.dfn.old.info")
  991.         )
  992.     ))
  993. ))
  994.  
  995.  
  996. ;=============================================================================
  997. ; now uncompress all the files and put them where they go...
  998.  
  999. (working (#working target))
  1000.  
  1001. (run (cat "Unsmush root.smu \""
  1002.       target
  1003.       "\""
  1004.      )
  1005. )
  1006.  
  1007. (complete 25)
  1008.  
  1009. (run (cat "Unsmush manual.smu \""
  1010.       target
  1011.       "\""
  1012.      )
  1013. )
  1014.  
  1015. (complete 35)
  1016.  
  1017. (run (cat "Unsmush libs.smu \""
  1018.       (tackon target "Libs")
  1019.       "\""
  1020.      )
  1021. )
  1022.  
  1023. (complete 40)
  1024.  
  1025. (run (cat "Unsmush catalogdeutsch.smu \""
  1026.       (tackon target "Catalogs/deutsch")
  1027.       "\""
  1028.      )
  1029. )
  1030.  
  1031. (run (cat "Unsmush catalogfrançais.smu \""
  1032.       (tackon target "Catalogs/français")
  1033.       "\""
  1034.      )
  1035. )
  1036.  
  1037. (run (cat "Unsmush catalogitaliano.smu \""
  1038.       (tackon target "Catalogs/italiano")
  1039.       "\""
  1040.      )
  1041. )
  1042.  
  1043. (complete 45)
  1044.  
  1045. (run (cat "Unsmush support.smu \""
  1046.       (tackon target "Support")
  1047.       "\""
  1048.      )
  1049. )
  1050.  
  1051. (complete 50)
  1052.  
  1053. (run (cat "Unsmush rexx.smu \""
  1054.       (tackon target "Rexx")
  1055.       "\""
  1056.      )
  1057. )
  1058.  
  1059. (complete 54)
  1060.  
  1061. (run (cat "Unsmush rexxvt.smu \""
  1062.       (tackon target "Rexx/TTX_VT")
  1063.       "\""
  1064.      )
  1065. )
  1066.  
  1067. (complete 55)
  1068.  
  1069. (run (cat "Unsmush localization.smu \""
  1070.       (tackon target "Localization")
  1071.       "\""
  1072.      )
  1073. )
  1074.  
  1075. (complete 60)
  1076.  
  1077.  
  1078. ;=============================================================================
  1079. ; Resize a few things so they look good...
  1080.  
  1081. (run (cat "ResizeDrawer \""
  1082.           target
  1083.           "\" 272 124"
  1084.      )
  1085. )
  1086.  
  1087. (run (cat "ResizeDrawer \""
  1088.           (tackon target "Support")
  1089.           "\" 400 100"
  1090.      )
  1091. )
  1092.  
  1093. (run (cat "ResizeDrawer \""
  1094.           (tackon target "Rexx")
  1095.           "\" 400 100"
  1096.      )
  1097. )
  1098.  
  1099. (complete 65)
  1100.  
  1101.  
  1102. ;=============================================================================
  1103. ; what to do with ASL
  1104.  
  1105. (if (< (/ (getversion "LIBS:asl.library") 65536) 38)
  1106. (
  1107.     (copylib (prompt #ask-asl)
  1108.              (help #ask-asl-help)
  1109.              (source (tackon target "Libs/asl.library"))
  1110.              (dest "LIBS:")
  1111.              (confirm)
  1112.     )
  1113. ))
  1114.  
  1115. (delete (tackon target "Libs/asl.library"))
  1116.  
  1117. (complete 70)
  1118.  
  1119.  
  1120. ;=============================================================================
  1121. ; what to do with AmigaGuide stuff
  1122.  
  1123. (if (< (/ (getversion "LIBS:amigaguide.library") 65536) 39)
  1124. (
  1125.     (tooltype (dest (tackon target "TurboText_Manual"))
  1126.               (setdefaulttool "AmigaGuide")
  1127.     )
  1128.  
  1129.     (copylib (source (tackon target "Libs/amigaguide.library"))
  1130.              (dest "LIBS:")
  1131.     )
  1132. )
  1133. (
  1134.     (delete (tackon target "AmigaGuide"))
  1135.  
  1136.     (rename (tackon target "TurboText_Manual")
  1137.             (tackon target "TurboText_Manual_Temp")
  1138.     )
  1139.  
  1140.     (run (cat "FixAG \""
  1141.               (tackon target "TurboText_Manual_Temp") "\" \""
  1142.               (tackon target "TurboText_Manual") "\""
  1143.          )
  1144.     )
  1145.  
  1146.     (delete (tackon target "TurboText_Manual_Temp"))
  1147. ))
  1148.  
  1149. (delete (tackon target "Libs/amigaguide.library"))
  1150.  
  1151. (complete 90)
  1152.  
  1153.  
  1154. ;=============================================================================
  1155. ; fix the startup-sequence
  1156.  
  1157. (startup "TurboText" (prompt (#startup target))
  1158.                      (help #startup-help)
  1159.                      (command (cat "Assign TurboText: \"" target "\"\n")
  1160.                               "Path TurboText: ADD"
  1161.                      )
  1162. )
  1163.  
  1164. (complete 95)
  1165.  
  1166.  
  1167. ;=============================================================================
  1168. ; finally, see if the user wants this great software run automatically on
  1169. ; reboot
  1170.  
  1171. (if (exists "SYS:WBStartup/TTX")
  1172. (
  1173.     (if (askbool (prompt #update-wbstartup)
  1174.                  (help #askbool-help)
  1175.                  (choices #ask-wbstartup-1 #ask-wbstartup-2)
  1176.                  (default 0)
  1177.         )
  1178.     (
  1179.         (copyfiles (source (tackon target "TTX"))
  1180.                    (dest "SYS:WBStartup")
  1181.                    (nogauge)
  1182.         )
  1183.     ))
  1184. )
  1185. (
  1186.     (if (askbool (prompt #ask-wbstartup)
  1187.                  (help #ask-wbstartup-help)
  1188.                  (choices #ask-wbstartup-1 #ask-wbstartup-2)
  1189.                  (default 0)
  1190.         )
  1191.     (
  1192.         (copyfiles (source (tackon target "TTX"))
  1193.                    (dest "SYS:WBStartup")
  1194.                    (nogauge)
  1195.         )
  1196.  
  1197.         (copyfiles (source (tackon target "TTX.info"))
  1198.                    (dest "SYS:WBStartup")
  1199.                    (nogauge)
  1200.         )
  1201.  
  1202.         (tooltype (dest "SYS:WBStartup/TTX")
  1203.                   (noposition)
  1204.                   (settooltype "NOWINDOW" "")
  1205.                   (settooltype "BACKGROUND" "")
  1206.         )
  1207.     ))
  1208. ))
  1209.  
  1210. (makeassign "TurboText" target)
  1211.  
  1212. (complete 100)
  1213. (exit)
  1214.  
  1215. )
  1216. (
  1217.  
  1218. ;******************************************************************
  1219. ;******************** FLOPPY INSTALL ******************************
  1220. ;******************************************************************
  1221.  
  1222. (copyfiles (source "SYS:System/Format")
  1223.            (dest "RAM:")
  1224.            (nogauge)
  1225. )
  1226.  
  1227. (message #floppy-stuff)
  1228.  
  1229. (working #formatting)
  1230. (run "RAM:Format drive DF0: name TurboText noicons ffs")
  1231. (delete "RAM:Format")
  1232.  
  1233. (complete 45)
  1234.  
  1235. (makedir "TurboText:Support" (infos))
  1236. (makedir "TurboText:Catalogs")
  1237. (makedir "TurboText:Catalogs/deutsch")
  1238. (makedir "TurboText:Catalogs/français")
  1239. (makedir "TurboText:Catalogs/italiano")
  1240. (makedir "TurboText:Libs")
  1241. (makedir "TurboText:Rexx" (infos))
  1242. (makedir "TurboText:Rexx/TTX_VT" (infos))
  1243.  
  1244. (complete 50)
  1245.  
  1246. (run "Unsmush root.smu TurboText:")
  1247. (delete "TurboText:AmigaGuide")
  1248.  
  1249. (complete 60)
  1250.  
  1251. (run "Unsmush support.smu TurboText:Support")
  1252.  
  1253. (complete 70)
  1254.  
  1255. (run "Unsmush catalogdeutsch.smu TurboText:Catalogs/deutsch")
  1256. (run "Unsmush catalogfrançais.smu TurboText:Catalogs/français")
  1257. (run "Unsmush catalogitaliano.smu TurboText:Catalogs/italiano")
  1258.  
  1259. (complete 80)
  1260.  
  1261. (run "Unsmush libs.smu TurboText:Libs")
  1262. (delete "TurboText:Libs/amigaguide.library")
  1263. (rename "TurboText:Libs/asl.library" "TurboText:Libs/tsl.library")
  1264. (run "PokeTSL")
  1265.  
  1266. (complete 90)
  1267.  
  1268. (run "Unsmush rexx.smu TurboText:Rexx")
  1269.  
  1270. (complete 95)
  1271.  
  1272. (run "Unsmush rexxvt.smu TurboText:Rexx/TTX_VT")
  1273.  
  1274. (set @default-dest "TurboText:")
  1275.  
  1276. (complete 100)
  1277.  
  1278. ))
  1279.